home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Backup / DIAVOLOBACKUP1,10.DMS / in.adf / Install Diavolo < prev    next >
Encoding:
Text File  |  1993-11-04  |  9.3 KB  |  267 lines
  1. ; Install-Script für Diavolo-Backup
  2. ;
  3. ; © 1993 Martin Korndörfer
  4. ;
  5. ; $VER:DiavoloInstall 1.10 (04-Nov-93)
  6. ;
  7. ; Version 1.10:
  8. ;
  9. ;   - Text für XPK Installation geändert.
  10. ;
  11. ; Version 1.9:
  12. ;
  13. ;   - Die Katalog-Datei wird nun auch immer in locale:catalogs... gespeichert,
  14. ;     um Problemen aus dem Weg zu gehen, wenn Diavolo in ein anderes 
  15. ;     Verzeichnis kopiert wird.
  16. ;   - Alle System-Libraries werden nun nach sys:libs statt libs: kopiert.
  17. ;     Die Locale.library wird kopiert.
  18. ;   - Der Anwender hat die Möglichkeit die fehlenden xpkXXXX.libraries aus
  19. ;     dem XPK Paket ins libs: zu installieren.
  20. ;
  21. ; Version 1.8:
  22. ;
  23. ;   - Wenn das Assign "LOCALE:" nicht vorhanden ist, wird es auch nicht mehr
  24. ;     abgefragt (unter 2.04 erschient sonst ein "Please insert..." Requester)
  25. ;   - Die asl. und diskfont.library werden kopiert. Die Fonts werden ins
  26. ;     Diavolo Verzeichnis kopiert.
  27.  
  28.  
  29. (set @abort-button "Installation abbrechen")
  30.  
  31. (set @app-name "Diavolo Backup 1.8")
  32.  
  33. (set @language "deutsch")
  34.  
  35. (welcome "Willkommen zur Installation von Diavolo Backup 1.8!")
  36.  
  37. (set Ok 0)
  38.  
  39. (complete 0)
  40.  
  41. (set savedest @default-dest)
  42.  
  43. (set ToDo (askoptions (prompt "Bitte wählen Sie die gewünschte Operation:")
  44.                       (help @askoptions-help)
  45.                       (choices "Diavolo Backup installieren"
  46.                                "XPK-library installieren bzw. updaten"
  47.                                "XPK Anleitungen und restl. Packer installieren"
  48.                                "Magic Menu installieren")
  49.                       (default $3))
  50. )
  51.  
  52. (if (<> (BITAND ToDo $1) 0)
  53.     ((set newdest (askdir (prompt "Bitte wählen Sie, wohin Diavolo Backup installiert werden soll.")
  54.                           (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin Diavolo Backup \
  55. installiert werden soll.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
  56. Installationsprogramm wird KEINE eigene Schublade für Diavolo Backup anlegen.\n\n" @askdir-help))
  57.                           (default (tackon savedest "Diavolo"))
  58.                           (newpath))
  59.      )
  60.  
  61.      (if (= (exists newdest) 0)
  62.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  63.                           (help @makedir-help)
  64.                           (infos))
  65.      )
  66.  
  67.      (set @default-dest newdest)
  68.  
  69.      (complete 5)
  70.  
  71.      (copyfiles (prompt "Kopiere Diavolo Backup...")
  72.                 (help (cat "Das Hauptprogramm von Diavolo wird auf Ihre Festplatte kopiert\n\n" @copyfiles-help))
  73.                 (source "Diavolo Backup:")
  74.                 (dest @default-dest)
  75.                 (pattern "(Diavolo|LiesMich)")
  76.                 (infos))
  77.  
  78.      (makedir (tackon @default-dest "Tape Catalogs") (prompt ("Erstelle Verzeichnis 'Tape Catalogs'!" newdest))
  79.                       (help @makedir-help)
  80.                       (infos))
  81.      (complete 10)
  82.  
  83.      (copyfiles (prompt "Kopiere Fonts...")
  84.                 (help (cat "Zur Sicherheit werden die Fonts in das Diavolo Verzeichnis kopiert\n\n" @copyfiles-help))
  85.                 (source "Diavolo Backup:fonts")
  86.                 (dest (tackon @default-dest "fonts"))
  87.                 (fonts)
  88.                 (all))
  89.  
  90.      (complete 13)
  91.  
  92.      (tooltype  (prompt "Passe Positionen an...")
  93.                 (help @tooltype-help)
  94.                 (dest (tackon @default-dest "Diavolo"))
  95.                 (setstack 10000)
  96.                 (noposition))
  97.  
  98.      (tooltype  (prompt "Passe Positionen an...")
  99.                 (help @tooltype-help)
  100.                 (dest (tackon @default-dest "LiesMich"))
  101.                 (noposition))
  102.  
  103.      (complete 15)
  104.  
  105.      (copyfiles (prompt "Kopiere Sprachdateien...")
  106.                 (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
  107.                 (source "Diavolo Backup:catalogs")
  108.                 (dest (tackon @default-dest "catalogs"))
  109.                 (all))
  110.  
  111.      (complete 18)
  112.  
  113.      (if (<> (exists "locale:catalogs/deutsch" (noreq)) 0)
  114.          (copyfiles (prompt "Kopiere Sprachdateien...")
  115.                 (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
  116.                 (source "Diavolo Backup:catalogs")
  117.                 (dest "locale:catalogs")
  118.                 (all))
  119.      )
  120.      )
  121. )
  122.  
  123. (complete 20)
  124.  
  125.  
  126. (if (<> (BITAND ToDo $2) 0)
  127.     ((copylib (prompt "Installiere XPKmaster.library...")
  128.               (help @copylib-help)
  129.               (source "Diavolo Backup:libs/xpkmaster.library")
  130.               (dest "libs:")
  131.               (optional nofail askuser))
  132.  
  133.     (complete 25)
  134.  
  135.     (foreach "Diavolo Backup:libs/compressors" "xpk#?.library"
  136.       (copylib (prompt ("Installiere %s" @each-name))
  137.                (help @copylib-help)
  138.                (source (tackon "Diavolo Backup:libs/compressors" @each-name))
  139.                (dest "libs:compressors")
  140.                (optional nofail askuser))
  141.     )
  142.  
  143.     (complete 34)
  144.  
  145.     (copylib (prompt "Installiere asl.library...")
  146.              (help @copylib-help)
  147.              (source "Diavolo Backup:libs/asl.library")
  148.              (dest "sys:libs")
  149.              (optional nofial askuser))
  150.  
  151.     (complete 36)
  152.  
  153.     (copylib (prompt "Installiere diskfont.library...")
  154.              (help @copylib-help)
  155.              (source "Diavolo Backup:libs/diskfont.library")
  156.              (dest "sys:libs")
  157.              (optional nofial askuser))
  158.  
  159.     (complete 38)
  160.  
  161.     (copylib (prompt "Installiere locale.library...")
  162.              (help @copylib-help)
  163.              (source "Diavolo Backup:libs/locale.library")
  164.              (dest "sys:libs")
  165.              (optional nofial askuser))
  166.     )
  167. )
  168.  
  169. (complete 40)
  170.  
  171. (if (<> (BITAND ToDo $4) 0)
  172.     ((set newdest (askdir (prompt "Bitte wählen Sie, wo die Anleitungen für die XPK Packer installiert werden sollen.")
  173.                           (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin die \
  174. Anleitungen für die XPK-Packer kopiert werden sollen.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
  175. Installationsprogramm wird KEINE eigene Schublade für das XPK-Paket anlegen.\n\n" @askdir-help))
  176.                           (default (tackon savedest "XPK"))
  177.                           (newpath))
  178.      )
  179.  
  180.      (if (= (exists newdest) 0)
  181.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  182.                           (help @makedir-help)
  183.                           (infos))
  184.      )
  185.  
  186.      (working "XPK-Paket wird ausgepackt. Bitte ein Weilchen Geduld...")
  187.      (if (= (substr newdest (- (strlen newdest) 1) 1) ':')
  188.          (set Err (run ("\"Diavolo Backup:c/lha\" x -a -m -q -x -M \"Diavolo Backup:XPK/XPKusr_2,4.lha\" \"%s\"" newdest)))
  189.          (set Err (run ("\"Diavolo Backup:c/lha\" x -a -m -q -x -M \"Diavolo Backup:XPK/XPKusr_2,4.lha\" \"%s/\"" newdest)))
  190.      )
  191.  
  192.      (if (<> Err 0)
  193.          (message "Fehler beim Auspacken. Das XPK-Paket ist wahrscheinlich nur unvollständig installiert.")
  194.  
  195.          (if (askbool (prompt "Bisher wurden nur die wichtigsten XPK-Algorithmen installiert. Sollen die restlichen Packer ebenfalls installiert werden?")
  196.                       (help @askbool-help)
  197.                       (default 1))
  198.              ((set libsrc (tackon newdest "libs/compressors"))
  199.               (foreach libsrc "xpk#?.library"
  200.                 (copylib (prompt ("Installiere %s" @each-name))
  201.                          (help @copylib-help)
  202.                          (source (tackon libsrc @each-name))
  203.                          (dest "libs:compressors")
  204.                          (optional nofail askuser))
  205.               )
  206.              )
  207.          )
  208.      )
  209.      (if (= (BITAND ToDo $1) 0)
  210.          ((set @default-dest newdest)
  211.           (set @app-name "XPK-Paket")
  212.          )
  213.      )
  214.     )
  215. )
  216.  
  217. (complete 80)
  218.  
  219. (if (<> (BITAND ToDo $8) 0)
  220.     ((set newdest (askdir (prompt "Bitte wählen Sie, wohin Magic Menu kopiert werden soll.")
  221.                           (help (cat "In diesem Einstellungsfenster können Sie festlegen, wohin \
  222. Magic Menu installiert werden soll.\nGeben Sie das gewünschte Laufwerk und evtl. die Schublade an.\n\nACHTUNG! Das \
  223. Installationsprogramm wird KEINE eigene Schublade für Magic Menu anlegen.\n\n" @askdir-help))
  224.                           (default (tackon savedest "MagicMenu"))
  225.                           (newpath))
  226.      )
  227.  
  228.      (if (= (exists newdest) 0)
  229.          (makedir newdest (prompt ("Erstelle Verzeichnis %s!" newdest))
  230.                           (help @makedir-help)
  231.                           (infos))
  232.      )
  233.  
  234.      (working "Magic Menu wird ausgepackt. Bitte ein Weilchen Geduld...")
  235.      (if (= (substr newdest (- (strlen newdest) 1) 1) ':')
  236.          (set Err (run ("\"Diavolo Backup:c/lha\" x -a -m -q -x -M \"Diavolo Backup:MagicMenu_1,27.lha\" \"%s\"" newdest)))
  237.          (set Err (run ("\"Diavolo Backup:c/lha\" x -a -m -q -x -M \"Diavolo Backup:MagicMenu_1,27.lha\" \"%s/\"" newdest)))
  238.      )
  239.  
  240.      (if (<> Err 0)
  241.          (message "Fehler beim Auspacken. Magic Menu ist wahrscheinlich nur unvollständig installiert.")
  242.  
  243.          (if (askbool (prompt "Soll Magic Menu beim Hochfahren des Rechners automatisch aktiviert werden?")
  244.                       (help @askbool-help)
  245.                       (default 1))
  246.              (copyfiles (prompt "Kopiere Magic Menu nach WBStartup...")
  247.                         (help @copyfiles-help)
  248.                         (source (tackon newdest "MagicMenu"))
  249.                         (dest "sys:WBStartup")
  250.                         (infos))
  251.          )
  252.      )
  253.  
  254.      (if (= (BITAND ToDo $1) 0)
  255.          ((set @default-dest newdest)
  256.           (set @app-name "Magic Menu")
  257.          )
  258.      )
  259.     )
  260. )
  261.  
  262.  
  263.  
  264. (complete 100)
  265.  
  266. (exit)
  267.